home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / timeserv.d < prev    next >
Text File  |  1997-10-26  |  944b  |  33 lines
  1. DEFINITION MODULE TimeService;
  2.  
  3. (* šbertragung von TDI-AssLink am 18.05.1991   *)
  4. (* Nur CardToTime und CardToDate implementiert *)
  5.  
  6. PROCEDURE TimeToCard(Stunde,Minute,Sekunde : CARDINAL):CARDINAL;
  7.  
  8. PROCEDURE CardToTime(Time : CARDINAL;VAR Stunde,Minute,Sekunde : CARDINAL);
  9.  
  10. PROCEDURE DateToCard(Jahr,Monat,Tag : CARDINAL):CARDINAL;
  11.  
  12. PROCEDURE CardToDate(Date : CARDINAL;VAR Jahr,Monat,Tag : CARDINAL);
  13.  
  14. PROCEDURE DateTimeToLong(Jahr,Monat,Tag,
  15.                          Stunde,Minute,Sekunde : CARDINAL):LONGCARD;
  16.  
  17. PROCEDURE LongToDateTime(DateTime : LONGCARD;
  18.                          VAR Jahr,Monat,Tag,
  19.                              Stunde, Minute,Sekunde : CARDINAL);
  20.  
  21. PROCEDURE SetTime(Time : CARDINAL);  (* GEMDOS *)
  22.  
  23. PROCEDURE SetDate(Date : CARDINAL);  (* GEMDOS *)
  24.  
  25. PROCEDURE SetDateTime(DateTime : LONGCARD); (* KEYBOARD *)
  26.  
  27. PROCEDURE QuickAndDirty();
  28.  
  29. PROCEDURE QuickAndDirtyToo();
  30.  
  31. END TimeService.
  32.  
  33.